-- background: 2637 from stack: in
-- bmap block id: 10772
-- flags: 4000
-- background id: 0
-- name: File Card


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=231 right=256 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=202 right=227 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=261 right=286 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  push recent card
  visual effect iris close
  pop card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=22 right=41 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=46 right=65 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris close
  go home
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=49 top=46 right=65 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "Name" or "Co Name" or "Catagory"
  if it is "Name"
  then sort by Last word of first line of field "Name"
else if it is "Co Name"
then sort by first word of first line of field "Company Name"
else if it is "Catagory"
then sort by first word of first line of field "cat"
end mouseUp



-- part 42 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=165 top=151 right=172 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Phone


-- part 44 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=352 top=103 right=124 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cat


-- part 46 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=49 top=22 right=41 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  doMenu "FIND..."
end mouseUp



-- part 48 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=161 top=23 right=44 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Name


-- part 49 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=161 top=43 right=64 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Company Name


-- part 50 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=161 top=63 right=84 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ADDRESS


-- part 51 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=161 top=83 right=104 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CSZ


-- part 52 (field)
-- low flags: 00
-- high flags: 6007
-- rect: left=51 top=200 right=290 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes


-- part 56 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=165 top=131 right=152 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Work Phone


-- part 60 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=63 top=158 right=177 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Home
----- HyperTalk script -----
on mouseUp
  global mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(" contains first character of Field "Home Phone"
  then
  put field "DialString" into DS
  put DS && field "Home Phone" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  Ask "Dial what number?"
  if it < 0 then exit mouseUp
  else
    put field "DialString" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=63 top=137 right=156 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Work
----- HyperTalk script -----
on mouseUp
  global input,mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(" contains first character of Field "Work Phone"
  then
  put field "DialString" into DS
  put DS && field "Work Phone" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  Ask "Dial what number?"
  if it < 0 then exit mouseUp
  else
    put field "DialString" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
end mouseUp



-- part 84 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=0 top=139 right=157 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T 1
----- HyperTalk script -----
on mouseUp
  set hilite of background button "T 1" to true
  set hilite of background button "P 1" to false
  put "ATDT" into field "DialString"
end mouseUp



-- part 85 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=29 top=139 right=157 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: P 1
----- HyperTalk script -----
on mouseUp
  set hilite of background button "T 1" to false
  set hilite of background button "P 1" to true
  put "ATDP" into field "DialString"
end mouseUp



-- part 88 (field)
-- low flags: 00
-- high flags: 6000
-- rect: left=161 top=103 right=124 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ZIP


-- part 89 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=165 top=171 right=192 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pager


-- part 90 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=63 top=179 right=198 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Pager
----- HyperTalk script -----
on mouseUp
  global mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(" contains first character of Field "Pager"
  then
  put field "DialString" into DS
  put DS && field "Pager" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  Ask "Dial what number?"
  if it < 0 then exit mouseUp
  else
    put field "DialString" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
end mouseUp



-- part 95 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=424 top=137 right=185 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hang Up
----- HyperTalk script -----
on mouseUp
  global string,len
  put "ATH0" & return into string
  put DoModem(mode,string,len) into str
end mouseUp



-- part 96 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=2 top=70 right=90 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by ZIP
----- HyperTalk script -----
on mouseUp
  answer "Sort by ZIP?" with "NO" or "YES"
  if it is "YES"
  then sort by first word of first line of field "ZIP"
else if it is "NO"
then exit mouseup
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=177 right=199 bottom=37
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Type
----- HyperTalk script -----
on mouseUp
  Visual effect zoom open
  hide message window
  push card
  go to card id 9933
end mouseUp



-- part 100 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=245 right=290 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GO
----- HyperTalk script -----
on mouseUp
  push card
  hide message window
  go to card id 10369
end mouseUp




-- part 102 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=3 top=156 right=174 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DialString


-- part 104 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=280 top=201 right=228 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:      OK   3
----- HyperTalk script -----
on mouseUp
  show field "work phone"
  show field "home phone"
  show field "pager"
  show field "notes"
  hide background button "     OK   3"
end mouseUp



-- part 108 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=293 right=338 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset
----- HyperTalk script -----
on mouseUp
  global string,len
  put "ATZ" & return into string
  put DoModem(mode,string,len) into str
end mouseUp